home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / byebyeny.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.9 KB  |  77 lines
  1. 10   '**********************************
  2. 20   '*                                *
  3. 30   '*      BYE BYE NEW YORK          *
  4. 40   '*                                *
  5. 50   '*             by                 *
  6. 60   '*                                *
  7. 70   '*       David J. Evers           *
  8. 80   '*                                *
  9. 90   '*         Quincy. IL             *
  10. 100  '*                                *
  11. 110  '*           8/4/84               *
  12. 120  '*                                *
  13. 130  '**********************************
  14. 140  '
  15. 150  KEY OFF
  16. 160  SCREEN 1,0
  17. 170  COLOR 0,7
  18. 180  CLS
  19. 190  NY$="r85u1r10u1r7u12r5d12r1u20r4d16r3d4r3u10r3d10r2u25r3u10d10r2d25r1u10r5d10r2u15r6d15u18r3d3r3d6r3d9r1u5r3d5r1u21r1u2r1u2r1d2r1d2r1d11r3u12r3d10r3u6r2d6r3d10r2u10r3d10u28r5d28r2u10r3u10r3d10r3u4r6d6r3d2r3d6r2u12r3d13r2u5r2d7r10d1r100"
  20. 200  PSET (0,199)
  21. 210  DRAW NY$:'Draw NY skyline
  22. 220  FOR I=1 TO 50
  23. 230  X=RND * 319
  24. 240  Y=RND*180
  25. 250  PSET (X,Y):'plot 50 stars
  26. 260  NEXT I
  27. 270  FOR T=1 TO 500:NEXT T
  28. 280  X=319:Y=0:'Starting position of missile
  29. 290  FOR T=5000 TO 1000 STEP -14
  30. 300  SOUND T,1
  31. 310  X=X-0.575:Y=Y+0.5:'Update missile position
  32. 320  PSET (X,Y):'plot missile
  33. 330  PRESET (X,Y):'erase missile
  34. 340  NEXT
  35. 350  COLOR 15,0:'Flash screen
  36. 360  FOR T=1 TO 100:NEXT T
  37. 370  COLOR 0,0
  38. 380  'Mushroom Cloud
  39. 390  FOR B=1 TO 60
  40. 400  COLOR 0,0
  41. 410  CIRCLE (X,Y),1+B,2,,,B/25
  42. 420  NEXT B
  43. 430  FOR B=1 TO 27
  44. 440  CIRCLE (X,199),50+B,,,,B/75
  45. 450  CIRCLE (X,100),B,2
  46. 460  NEXT B
  47. 470  FOR B=1 TO 27
  48. 480  CIRCLE (X,195),60+B,2,,,B/200
  49. 490  CIRCLE (X,145),B,2
  50. 500  CIRCLE (X,80),B,2
  51. 510  NEXT B
  52. 520  FOR B=1 TO 120
  53. 530  CIRCLE (X,61),B,2,,,B/300
  54. 540  NEXT B
  55. 550  FOR T=1 TO 500:NEXT T
  56. 560  COLOR 15,0
  57. 570  FOR T=1 TO 50:NEXT
  58. 580  COLOR 0,6
  59. 590  FOR B=1 TO 30
  60. 600  CIRCLE (15,190),B,2,,,B/10
  61. 610  FOR T=1 TO 100:NEXT T
  62. 620  NEXT B
  63. 630  COLOR 15,0
  64. 640  FOR T=1 TO 50:NEXT
  65. 650  COLOR 0,6
  66. 660  FOR B=1 TO 50
  67. 670  CIRCLE (270,170),B,2,,,B/20
  68. 680  CIRCLE (15,165),B,2,,,B/150
  69. 690  NEXT B
  70. 700  FOR B=1 TO 20
  71. 710  CIRCLE (270,140),B,2
  72. 720  NEXT B
  73. 730  FOR B=1 TO 60
  74. 740  CIRCLE (270,125),B,2,,,B/200
  75. 750  NEXT B
  76. 760  GOTO 760
  77.